unit BaseDialog;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseForm, StdCtrls, Buttons, DB, MisString, cxGraphics,
  cxLookAndFeels, cxLookAndFeelPainters, Menus, cxButtons, ExtCtrls,
  cxControls, cxContainer, cxEdit, dxSkinsCore, dxSkinsDefaultPainters,
  cxTextEdit, cxCurrencyEdit, cxMaskEdit, cxDropDownEdit, cxCalc,
  dxSkinsForm, cxCheckBox, cxClasses;

type
  TfrmBaseDialog = class(TfrmBaseForm)
    btnOK: TcxButton;
    btnCancel: TcxButton;
    pnlBottom: TPanel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBaseDialog: TfrmBaseDialog;

implementation

{$R *.dfm}


procedure TfrmBaseDialog.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  Action := caHide;// caNone;
end;

end.

